Option Explicit
Sub Q_Sample047()
    ']wޥζ Windows Script Host Object Model
    Dim myWshNw  As IWshRuntimeLibrary.WshNetwork
    Dim myStr As String
    Set myWshNw = CreateObject("Wscript.Network")
    myStr = myStr & " = " & myWshNw.UserDomain & vbCrLf
    myStr = myStr & "qW = " & myWshNw.ComputerName & vbCrLf
    myStr = myStr & "ϥΪ̩mW = " & myWshNw.UserName & vbCrLf
    MsgBox myStr
    Set myWshNw = Nothing					'
End Sub
